home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.46
/
stinglibpcq
/
source
/
copy.p
next >
Wrap
Text File
|
1995-03-27
|
259b
|
20 lines
external;
{$I "include:utils/stringlib.i"}
function Str_Copy(s : string;dep,long : integer) : string;
var
s1 : string;
c : integer;
begin
s1 := allocstring(long+1);
dep := dep-1;
for c := 0 to (long-1) do
s1[c] := s[c+dep];
Str_copy := s1;
end;